// Copyright (c) 2013, Jose L. Hidalgo Valiño <pplux@pplux.com>
// All rights reserved.
// 
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
// 
//   * Redistributions of source code must retain the above copyright notice,
//     this list of conditions and the following disclaimer.
//   * Redistributions in binary form must reproduce the above copyright
//     notice, this list of conditions and the following disclaimer in the
//    documentation and/or other materials provided with the distribution.
// 
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
// POSSIBILITY OF SUCH DAMAGE.
#ifndef __TEST_SCRIPT__
#define __TEST_SCRIPT__ 1

#include <limits>
#include "gtest/gtest.h"

extern "C" {
#include <lualib.h>
#include <lauxlib.h>
}

class Script {
public:
  Script() : L_(NULL) { init(); }
  ~Script() { finish(); }

  void init();
  void finish();
  
  int getInt(const char *name);
  const char* getStr(const char *name);

  operator lua_State* () { return L_; }

private:
  Script(const Script&);
  Script& operator=(const Script&);

  lua_State* L_;
};


inline ::testing::AssertionResult Execute(lua_State *L, const char *code) {
  if (luaL_dostring(L, code)) {
     ::testing::AssertionResult result = ::testing::AssertionFailure();
     result << " Lua Error : " << lua_tostring(L, -1) << std::endl
       << "---------------------------------------- " << std::endl
       << code << std::endl 
       << "---------------------------------------- ";
     lua_pop(L,1);
     return result;
  }
  return ::testing::AssertionSuccess();
}

#ifdef _MSC_VER
#define snprintf _snprintf
#endif

#endif


